#!/usr/bin/perl

@extensiones = ('*.suo', '*.ncb', '*.user', '*.pdb', '*.idb', '*manifest*', '*.dep', '*.obj', 'BuildLog.htm', '*.ilk');

foreach (@extensiones) {
    print "Borrando los ficheros $_...\n";
    print `find -name \"$_\" -exec rm {} \\;`;
}




